home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 7 / DOS222.dsk / CAR.PROBLEMS.bas < prev    next >
BASIC Source File  |  2012-02-16  |  11KB  |  406 lines
  1. 10  HOME 
  2. 20  TEXT 
  3. 35  TEXT : HOME : SPEED= 40
  4. 37  GOSUB 15300
  5. 40  HTAB 14: PRINT "CAR PROBLEMS"
  6. 42  GOSUB 15200
  7. 45  HTAB 6: SPEED= 110
  8. 50  VTAB 4: PRINT "DID I EVER TELL YOU THE STORY": PRINT 
  9. 55  FOR D = 1 TO 200: NEXT D
  10. 60  PRINT "ABOUT ALL THE PROBLEMS I'VE HAD WITH": PRINT 
  11. 65  FOR D = 1 TO 200: NEXT D
  12. 70  PRINT "MY NEW CAR ?": PRINT 
  13. 80  GOSUB 16500
  14. 90  HTAB 5: PRINT "WELL,"
  15. 100  GOSUB 15100
  16. 110  VTAB 10: HTAB 11: PRINT "THE VERY DAY I BOUGHT THE CAR,"
  17. 120  GOSUB 15300: PRINT 
  18. 130  VTAB 12: PRINT "I TOOK IT OUT FOR A SPIN."
  19. 140  GOSUB 15400
  20. 150  VTAB 12: HTAB 27: PRINT "IT WAS A"
  21. 170  PRINT : PRINT "BEAUTIFUL, SUNNY DAY."
  22. 180  GOSUB 15400:
  23. 190  VTAB 14: HTAB 23: PRINT "NOT A CLOUD": PRINT 
  24. 200  PRINT "IN THE SKY,"
  25. 210  GOSUB 15200
  26. 220  VTAB 16: HTAB 13: PRINT "AND THE ENGINE WAS PURRING": PRINT 
  27. 230  GOSUB 15100
  28. 240  PRINT "LIKE A CAT,"
  29. 250  GOSUB 15100
  30. 260  VTAB 18: HTAB 13: PRINT "AS WE CRUISED ON DOWN THE": PRINT 
  31. 270  GOSUB 15100
  32. 280  PRINT "HIGHWAY.": PRINT 
  33. 285  GOSUB 15500: GOSUB 15300
  34. 290  HTAB 4: PRINT "ALL OF A SUDDEN,"
  35. 300  GOSUB 15100
  36. 310  VTAB 22: HTAB 21: PRINT "WITHOUT ANY WARNING,"
  37. 320  GOSUB 15200
  38. 325  PRINT 
  39. 330  SPEED= 0
  40. 340  PRINT "THE"
  41. 345  SPEED= 150
  42. 350  VTAB 23: HTAB 5: PRINT "CAR"
  43. 360  SPEED= 0
  44. 370  VTAB 23: HTAB 9: PRINT "STARTS"
  45. 380  SPEED= 150
  46. 390  VTAB 23: HTAB 16: PRINT "SPUTTERING"
  47. 400  SPEED= 0
  48. 410  VTAB 23: HTAB 27: PRINT "AND"
  49. 420  SPEED= 150
  50. 430  VTAB 23: HTAB 31: PRINT "LURCHING,"
  51. 440  GOSUB 15200
  52. 450  SPEED= 0
  53. 460  PRINT : PRINT "AND"
  54. 470  SPEED= 150
  55. 480  VTAB 23: HTAB 5: PRINT "LURCHING"
  56. 490  SPEED= 0
  57. 500  VTAB 23: HTAB 14: PRINT "AND"
  58. 510  SPEED= 150
  59. 520  VTAB 23: HTAB 18: PRINT "SPUTTERING."
  60. 530  SPEED= 0
  61. 540  VTAB 23: HTAB 30: PRINT "I"
  62. 550  SPEED= 150
  63. 560  VTAB 23: HTAB 32: PRINT "DIDN'T": PRINT 
  64. 570  SPEED= 0
  65. 580  PRINT "KNOW"
  66. 590  SPEED= 150
  67. 600  VTAB 23: HTAB 6: PRINT "WHAT"
  68. 610  SPEED= 0
  69. 620  VTAB 23: HTAB 11: PRINT "TO"
  70. 630  SPEED= 150
  71. 640  VTAB 23: HTAB 14: PRINT "DO."
  72. 650  GOSUB 15400
  73. 660  VTAB 23: HTAB 18: PRINT "SO"
  74. 670  SPEED= 0
  75. 680  VTAB 23: HTAB 21: PRINT "I"
  76. 690  SPEED= 150
  77. 700  VTAB 23: HTAB 23: PRINT "PULLED"
  78. 710  SPEED= 0
  79. 720  VTAB 23: HTAB 30: PRINT "ON"
  80. 730  SPEED= 150
  81. 740  VTAB 23: HTAB 33: PRINT "OVER"
  82. 750  PRINT : HTAB 38: PRINT "TO"
  83. 760  GOSUB 15100
  84. 770  PRINT : HTAB 37: PRINT "THE": PRINT 
  85. 780  GOSUB 15100
  86. 790  HTAB 36: PRINT "SIDE": PRINT 
  87. 800  GOSUB 15100
  88. 810  HTAB 38: PRINT "OF": PRINT 
  89. 820  GOSUB 15100
  90. 830  HTAB 37: PRINT "THE": PRINT 
  91. 840  GOSUB 15100
  92. 850  HTAB 36: PRINT "ROAD": PRINT 
  93. 860  GOSUB 15100
  94. 870  HTAB 38: PRINT "TO": PRINT 
  95. 880  GOSUB 15100
  96. 890  HTAB 37: PRINT "SEE": PRINT 
  97. 900  GOSUB 15100
  98. 903  HTAB 36: PRINT "WHAT": PRINT 
  99. 907  GOSUB 15100
  100. 910  HTAB 37: PRINT "WAS": PRINT 
  101. 920  GOSUB 15100
  102. 930  HTAB 37: PRINT "THE": PRINT 
  103. 940  GOSUB 15100
  104. 950  HTAB 33: PRINT "MATTER.": PRINT : PRINT 
  105. 960  GOSUB 16500
  106. 970  HTAB 39: PRINT "I": PRINT 
  107. 980  GOSUB 15100
  108. 990  HTAB 33: PRINT "CHECKED": PRINT 
  109. 1000  GOSUB 15100
  110. 1010  HTAB 35: PRINT "UNDER": PRINT 
  111. 1020  GOSUB 15100
  112. 1030  HTAB 37: PRINT "THE": PRINT 
  113. 1040  GOSUB 15100
  114. 1050  HTAB 36: PRINT "HOOD,": PRINT 
  115. 1060  GOSUB 15300
  116. 1070  HTAB 37: PRINT "BUT": PRINT 
  117. 1080  GOSUB 15100
  118. 1090  HTAB 32: PRINT "COULDN'T": PRINT 
  119. 1100  GOSUB 15100
  120. 1110  HTAB 36: PRINT "FIND": PRINT 
  121. 1120  GOSUB 15100
  122. 1130  HTAB 32: PRINT "ANYTHING": PRINT 
  123. 1160  GOSUB 15100
  124. 1170  HTAB 30: PRINT "NOTICEABLY": PRINT 
  125. 1180  GOSUB 15100
  126. 1190  HTAB 34: PRINT "WRONG.": PRINT 
  127. 1200  GOSUB 16500
  128. 1210  HTAB 38: PRINT "SO": PRINT 
  129. 1220  GOSUB 15100
  130. 1230  HTAB 39: PRINT "I": PRINT 
  131. 1240  GOSUB 15100
  132. 1245  HOME 
  133. 1250  SPEED= 0
  134. 1260  VTAB 23: PRINT "PULLED BACK OUT ONTO THE ROAD": PRINT 
  135. 1270  PRINT "AT A SNAIL'S PACE, AND MADE MY  WAY": PRINT 
  136. 1280  PRINT "OVER TO THE NEAREST SERVICE STATION.": PRINT 
  137. 1290  SPEED= 100
  138. 1300  PRINT "      FROM THE SERVICE STATION, I"
  139. 1310  GOSUB 15200: PRINT 
  140. 1320  PRINT "CALLED THE DEALER WHO SOLD ME THE CAR.": PRINT : PRINT 
  141. 1330  GOSUB 16500
  142. 1340  PRINT "'HELLO, MR. CITRUS-SELLER, PLEASE'"
  143. 1350  GOSUB 16500
  144. 1355  PRINT : PRINT 
  145. 1360  PRINT "'YES, MR. CITRUS-SELLER? HI, THIS"
  146. 1370  GOSUB 15100
  147. 1375  PRINT 
  148. 1380  PRINT "IS PHIL SHAPIRO -"
  149. 1390  GOSUB 15300
  150. 1400  VTAB 23: HTAB 20: PRINT "YOU KNOW -"
  151. 1410  GOSUB 15300
  152. 1420  VTAB 23: HTAB 31: PRINT "I BOUGHT"
  153. 1430  GOSUB 15100
  154. 1440  PRINT : PRINT "THAT LITTLE RED SPORTS CAR YOU SOLD": PRINT 
  155. 1450  GOSUB 15100
  156. 1460  PRINT "THIS MORNING ?'": PRINT 
  157. 1470  GOSUB 15500
  158. 1480  PRINT "     'WELL, I WAS NO MORE THAN TEN MILES": PRINT 
  159. 1490  GOSUB 15100
  160. 1500  PRINT "DOWN THE ROAD FROM YOUR DEALERSHIP,": PRINT 
  161. 1510  GOSUB 15100
  162. 1520  PRINT "WHEN THE CAR DEVELOPED ENGINE PROBLEMS.'"
  163. 1530  GOSUB 15400
  164. 1540  PRINT "'ALL OF A SUDDEN,"
  165. 1550  GOSUB 15100
  166. 1560  SPEED= 0
  167. 1570  VTAB 23: HTAB 19: PRINT "THE"
  168. 1580  SPEED= 150
  169. 1590  VTAB 23: HTAB 23: PRINT "CAR"
  170. 1600  SPEED= 0
  171. 1610  VTAB 23: HTAB 27: PRINT "STARTED"
  172. 1620  SPEED= 150
  173. 1630  PRINT : PRINT "SPUTTERING"
  174. 1640  SPEED= 0
  175. 1650  VTAB 23: HTAB 12: PRINT "AND"
  176. 1655  SPEED= 150
  177. 1660  VTAB 23: HTAB 16: PRINT "LURCHING,"
  178. 1675  SPEED= 0
  179. 1680  VTAB 23: HTAB 26: PRINT "AND"
  180. 1685  SPEED= 150
  181. 1690  VTAB 23: HTAB 30: PRINT "LURCHING"
  182. 1700  GOSUB 15100
  183. 1710  PRINT : SPEED= 0: PRINT "AND"
  184. 1720  SPEED= 150
  185. 1730  VTAB 23: HTAB 5: PRINT "SPUTTERING,"
  186. 1740  GOSUB 15100
  187. 1745  SPEED= 100
  188. 1750  VTAB 23: HTAB 17: PRINT "AND ALL TYPES OF"
  189. 1760  GOSUB 15100
  190. 1770  PRINT : FLASH : PRINT "FLASHING"
  191. 1780  NORMAL 
  192. 1785  GOSUB 15200
  193. 1790  VTAB 23: HTAB 10: PRINT "LIGHTS"
  194. 1800  PRINT  CHR$(7)
  195. 1810  VTAB 22: HTAB 17: PRINT "AND"
  196. 1820  PRINT  CHR$(7)
  197. 1830  VTAB 22: HTAB 21: PRINT "BELLS"
  198. 1840  PRINT  CHR$(7)
  199. 1850  VTAB 22: HTAB 27: PRINT "STARTED"
  200. 1860  PRINT  CHR$(7)
  201. 1870  PRINT : PRINT "RINGING"
  202. 1880  PRINT  CHR$(7)
  203. 1890  VTAB 22: HTAB 9: PRINT "OVER"
  204. 1900  PRINT  CHR$(7)
  205. 1910  VTAB 22: HTAB 14: PRINT "AND"
  206. 1920  PRINT  CHR$(7)
  207. 1930  VTAB 22: HTAB 18: PRINT "OVER."
  208. 1935  PRINT  CHR$(7)
  209. 1940  GOSUB 15400
  210. 1950  PRINT : PRINT "      SO I PULLED ON OVER TO THE SIDE"
  211. 1960  GOSUB 15100: PRINT 
  212. 1970  HTAB 38: PRINT "OF"
  213. 1980  GOSUB 15100: PRINT 
  214. 1990  HTAB 37: PRINT "THE"
  215. 2000  GOSUB 15100: PRINT 
  216. 2010  HTAB 36: PRINT "ROAD"
  217. 2020  GOSUB 15100: PRINT 
  218. 2030  HTAB 38: PRINT "TO"
  219. 2040  GOSUB 15100: PRINT 
  220. 2050  HTAB 35: PRINT "CHECK"
  221. 2060  GOSUB 15100: PRINT 
  222. 2070  HTAB 37: PRINT "OUT"
  223. 2080  GOSUB 15100: PRINT 
  224. 2090  HTAB 36: PRINT "WHAT"
  225. 2100  GOSUB 15100: PRINT 
  226. 2110  HTAB 37: PRINT "WAS"
  227. 2120  GOSUB 15100: PRINT 
  228. 2130  HTAB 37: PRINT "THE"
  229. 2140  GOSUB 15100: PRINT 
  230. 2145  HTAB 33: PRINT "MATTER."
  231. 2150  GOSUB 15200: PRINT 
  232. 2160  HTAB 39: PRINT "A"
  233. 2170  GOSUB 15100: PRINT 
  234. 2180  HTAB 33: PRINT "CURSORY"
  235. 2190  GOSUB 15100: PRINT 
  236. 2200  HTAB 30: PRINT "INSPECTION"
  237. 2210  GOSUB 15200: PRINT 
  238. 2220  HTAB 34: PRINT "SHOWED"
  239. 2230  GOSUB 15100: PRINT 
  240. 2240  HTAB 38: PRINT "NO"
  241. 2250  GOSUB 15100: PRINT 
  242. 2260  HTAB 30: PRINT "NOTICEABLE"
  243. 2270  GOSUB 15100: PRINT 
  244. 2280  HTAB 32: PRINT "PROBLEM."
  245. 2290  GOSUB 15500: GOSUB 15300
  246. 2295  PRINT : PRINT : PRINT 
  247. 2300  PRINT : PRINT "YOU SAY WHAT ?"
  248. 2310  GOSUB 15300
  249. 2320  PRINT : PRINT "THE CAR'S WARRANTY IS GOOD FOR TWO"
  250. 2330  GOSUB 15100: PRINT 
  251. 2340  PRINT "YEARS, OR TWO CITY BLOCKS, WHICHEVER"
  252. 2350  GOSUB 15100: PRINT 
  253. 2360  PRINT "COMES FIRST ?!?"
  254. 2370  GOSUB 15500: PRINT 
  255. 2380  SPEED= 180
  256. 2390  PRINT "NOW"
  257. 2400  FOR D = 1 TO 40: NEXT D
  258. 2405  SPEED= 140
  259. 2410  VTAB 23: HTAB 5: PRINT "JUST"
  260. 2420  FOR D = 1 TO 70: NEXT D
  261. 2425  SPEED= 120
  262. 2430  VTAB 23: HTAB 10: PRINT "YOU"
  263. 2440  FOR D = 1 TO 85: NEXT D
  264. 2445  SPEED= 80
  265. 2450  VTAB 23: HTAB 14: PRINT "WAIT"
  266. 2560  FOR D = 1 TO 120: NEXT D
  267. 2565  SPEED= 40
  268. 2570  VTAB 23: HTAB 19: PRINT "A"
  269. 2580  FOR D = 1 TO 150: NEXT D
  270. 2585  SPEED= 10
  271. 2590  VTAB 23: HTAB 21: PRINT "MINUTE,"
  272. 2600  FOR D = 1 TO 200: NEXT D
  273. 2610  SPEED= 0
  274. 2620  VTAB 23: HTAB 29: PRINT "BUSTER!"
  275. 2630  GOSUB 15100: PRINT 
  276. 2740  SPEED= 180
  277. 2750  PRINT "JUST"
  278. 2760  FOR D = 1 TO 40: NEXT D
  279. 2770  SPEED= 140
  280. 2780  VTAB 23: HTAB 6: PRINT "WHO"
  281. 2790  FOR D = 1 TO 60: NEXT D
  282. 2800  SPEED= 120
  283. 2810  VTAB 23: HTAB 10: PRINT "DO"
  284. 2820  FOR D = 1 TO 80: NEXT D
  285. 2830  SPEED= 100
  286. 2840  VTAB 23: HTAB 13: PRINT "YOU"
  287. 2850  GOSUB 15100
  288. 2860  SPEED= 60
  289. 2870  VTAB 23: HTAB 17: PRINT "THINK"
  290. 2880  FOR D = 1 TO 120: NEXT D
  291. 2890  SPEED= 20
  292. 2900  VTAB 23: HTAB 23: PRINT "YOU"
  293. 2910  FOR D = 1 TO 140: NEXT D
  294. 2920  SPEED= 0
  295. 2930  VTAB 23: HTAB 27: PRINT "ARE ?!?"
  296. 2940  GOSUB 15200: PRINT 
  297. 2950  SPEED= 180
  298. 2960  PRINT "I"
  299. 2970  FOR D = 1 TO 40: NEXT D
  300. 2980  SPEED= 160
  301. 2990  VTAB 23: HTAB 3: PRINT "PAID"
  302. 3000  FOR D = 1 TO 60: NEXT D
  303. 3010  SPEED= 140
  304. 3020  VTAB 23: HTAB 8: PRINT "GOOD"
  305. 3030  FOR D = 1 TO 80: NEXT D
  306. 3040  SPEED= 120
  307. 3050  VTAB 23: HTAB 13: PRINT "MONEY"
  308. 3060  GOSUB 15100
  309. 3070  SPEED= 100
  310. 3080  VTAB 23: HTAB 19: PRINT "FOR"
  311. 3090  FOR D = 1 TO 120: NEXT D
  312. 3100  SPEED= 80
  313. 3110  VTAB 23: HTAB 23: PRINT "THAT"
  314. 3120  FOR D = 1 TO 140: NEXT D
  315. 3130  SPEED= 60
  316. 3140  VTAB 23: HTAB 28: PRINT "HUNK"
  317. 3150  FOR D = 1 TO 160: NEXT D
  318. 3160  SPEED= 40
  319. 3170  VTAB 23: HTAB 33: PRINT "OF"
  320. 3180  FOR D = 1 TO 180: NEXT D
  321. 3190  SPEED= 20
  322. 3200  VTAB 23: HTAB 36: PRINT "METAL"
  323. 3210  GOSUB 15300: PRINT 
  324. 3220  SPEED= 90
  325. 3230  PRINT "'UNLESS YOU WANT ME TO BAD MOUTH"
  326. 3240  GOSUB 15100: PRINT 
  327. 3245  PRINT "YOUR BUSINESS"
  328. 3250  GOSUB 15100
  329. 3260  GOSUB 10000
  330. 3270  PRINT "ALL"
  331. 3280  GOSUB 15100
  332. 3290  GOSUB 10000
  333. 3300  PRINT "OVER"
  334. 3310  GOSUB 15100: GOSUB 10000
  335. 3320  PRINT "TOWN,"
  336. 3330  GOSUB 15100: HOME : VTAB 23
  337. 3340  PRINT "YOU'D BETTER SEND SOMEONE OVER HERE"
  338. 3350  GOSUB 15200: SPEED= 150
  339. 3355  PRINT "FAST."
  340. 3360  GOSUB 15200: PRINT 
  341. 3370  GOSUB 15200
  342. 3375  PRINT : SPEED= 150
  343. 3380  PRINT "IF"
  344. 3390  GOSUB 12000: HOME 
  345. 3400  VTAB 23: HTAB 2: PRINT "IF"
  346. 3410  GOSUB 12000: HOME 
  347. 3420  VTAB 23: HTAB 2: PRINT "IF YOU"
  348. 3430  GOSUB 12000: HOME 
  349. 3440  VTAB 23: HTAB 3: PRINT "IF YOU"
  350. 3450  GOSUB 12000: HOME 
  351. 3460  VTAB 23: HTAB 3: PRINT "IF YOU GET"
  352. 3470  GOSUB 12000: HOME 
  353. 3480  VTAB 23: HTAB 4: PRINT "IF YOU GET"
  354. 3485  GOSUB 12000: HOME 
  355. 3490  VTAB 23: HTAB 4: PRINT "IF YOU GET MY"
  356. 3500  GOSUB 12000: HOME 
  357. 3510  VTAB 23: HTAB 5: PRINT "IF YOU GET MY"
  358. 3520  GOSUB 12000: HOME 
  359. 3530  VTAB 23: HTAB 5: PRINT "'IF YOU GET MY DRIFT.'"
  360. 3560  GOSUB 15500: PRINT 
  361. 3570  SPEED= 90
  362. 3580  PRINT "SO THE DEALER SENT OVER A MECHANIC"
  363. 3590  GOSUB 12000: PRINT 
  364. 3600  PRINT "WHO POKED ABOUT HERE AND THERE IN"
  365. 3610  GOSUB 12000: PRINT 
  366. 3620  PRINT "THE ENGINE."
  367. 3630  GOSUB 15100: PRINT 
  368. 3640  PRINT "MUCH TO MY SURPRISE, THE SPUTTERING"
  369. 3650  GOSUB 12000: PRINT 
  370. 3660  PRINT "AND LURCHING DISAPPEARED COMPLETELY,"
  371. 3670  GOSUB 15100: PRINT 
  372. 3680  PRINT "AND I WAS ABLE TO"
  373. 3690  GOSUB 15100: HOME 
  374. 3700  VTAB 23: HTAB 17: PRINT "DRIVE"
  375. 3710  VTAB 21: HTAB 16: PRINT "HAPPILY"
  376. 3720  GOSUB 12000
  377. 3730  VTAB 19: HTAB 18: PRINT "OFF"
  378. 3740  GOSUB 12000
  379. 3750  VTAB 17: HTAB 17: PRINT "INTO"
  380. 3760  GOSUB 12000
  381. 3770  VTAB 15: HTAB 18: PRINT "THE"
  382. 3780  GOSUB 12000
  383. 3790  VTAB 13: HTAB 16: PRINT "SUNSET."
  384. 3800  GOSUB 15500: GOSUB 15400: HOME 
  385. 3810  VTAB 12: PRINT "COPYRIGHT 1986             PHIL SHAPIRO"
  386. 3820  END 
  387. 10000  HOME 
  388. 10010 X = ((33 * RND(1)) +1)
  389. 10020 Y = ((24 * RND(1)) +1)
  390. 10030  HTAB X: VTAB Y
  391. 10040  RETURN 
  392. 12000  FOR D = 1 TO 50: NEXT D
  393. 12010  RETURN 
  394. 15100  FOR D = 1 TO 100: NEXT D
  395. 15110  RETURN 
  396. 15200  FOR D = 1 TO 200: NEXT D
  397. 15210  RETURN 
  398. 15300  FOR D = 1 TO 300: NEXT D
  399. 15310  RETURN 
  400. 15400  FOR D = 1 TO 400: NEXT D
  401. 15410  RETURN 
  402. 15500  FOR D = 1 TO 500: NEXT D
  403. 15510  RETURN 
  404. 16000  FOR D = 1 TO 1000: NEXT D
  405. 16500  FOR D = 1 TO 1500: NEXT D
  406. 16510  RETURN